home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wereon1a / form2.frm (.txt) next >
Encoding:
Visual Basic Form  |  1999-06-26  |  1.4 KB  |  54 lines
  1. VERSION 5.00
  2. Begin VB.Form Form2 
  3.    Caption         =   "Form2"
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   60
  6.    ClientTop       =   630
  7.    ClientWidth     =   4680
  8.    LinkTopic       =   "Form2"
  9.    ScaleHeight     =   3195
  10.    ScaleWidth      =   4680
  11.    StartUpPosition =   3  'Windows Default
  12.    Visible         =   0   'False
  13.    Begin VB.Menu mnu_shell 
  14.       Caption         =   "Shell Menu"
  15.       Begin VB.Menu itm_refresh 
  16.          Caption         =   "Refresh"
  17.       End
  18.       Begin VB.Menu itm_hide 
  19.          Caption         =   "Hide"
  20.       End
  21.       Begin VB.Menu itm_quit 
  22.          Caption         =   "Quit"
  23.       End
  24.    End
  25. Attribute VB_Name = "Form2"
  26. Attribute VB_GlobalNameSpace = False
  27. Attribute VB_Creatable = False
  28. Attribute VB_PredeclaredId = True
  29. Attribute VB_Exposed = False
  30. Private Sub itm_hide_Click()
  31.     If itm_hide.Caption = "Hide" Then
  32.         itm_hide.Caption = "Show"
  33.         Form1.Hide
  34.         Form1.Timer1.Enabled = False
  35.         winvis = False
  36.      Else
  37.         itm_hide.Caption = "Hide"
  38.         Form1.Timer1.Enabled = True
  39.      End If
  40. End Sub
  41. Private Sub itm_quit_Click()
  42.     DeleteDC LogoDC
  43.     DeleteDC SpriteDC
  44.     DeleteDC BackDC
  45.     Shell_NotifyIcon NIM_DELETE, nidProgramData
  46.     Unload Form1
  47.     Unload Form2
  48.     End
  49. End Sub
  50. Private Sub itm_refresh_Click()
  51.    Form1.Hide
  52.    winvis = False
  53. End Sub
  54.